home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / BBS_UTL / PROK344 / PROMAIL.INT < prev    next >
Text File  |  1991-04-01  |  1KB  |  56 lines
  1.  
  2. (*
  3.  * Copyright 1987, 1991 Samuel H. Smith;  All rights reserved
  4.  *
  5.  * This is a component of the ProDoor System.
  6.  * Do not distribute modified versions without my permission.
  7.  * Do not remove or alter this notice or any other copyright notice.
  8.  * If you use this in your own program you must distribute source code.
  9.  * Do not use any of this in a commercial product.
  10.  *
  11.  *)
  12.  
  13. (*
  14.  * PCB ProDOOR ProMail unit - message base handler (3-1-89)
  15.  *
  16.  *)
  17.  
  18. unit ProMail;
  19.  
  20. interface
  21.  
  22.    uses Tools, BufIO, ProData;
  23.  
  24. function sysopfun_allowed: boolean;
  25. function message_allowed: boolean;
  26. function meets_criteria: boolean;
  27.  
  28. procedure display_header;
  29. procedure display_text;
  30. procedure display_loaded_message;
  31. procedure get_text;
  32. procedure load_message(killed: boolean);
  33. procedure save_message_header;
  34. procedure set_lastread;
  35. procedure set_read_flag;
  36.  
  37. procedure decode_status;
  38. procedure advance;
  39. procedure get_index(killed: boolean);
  40. procedure check_message(killed: boolean);
  41. function select_conference(conf: word): boolean;
  42. procedure display_conference_info;
  43. procedure open_conference;
  44. procedure reopen_messagebase;
  45. procedure close_conference;
  46. procedure alloc_mail;
  47. procedure free_mail;
  48.  
  49. procedure start_search;
  50. procedure mid_search_status;
  51. procedure end_search_status(yours: boolean; found: boolean);
  52.  
  53. function locate_next_personal {(par: string2)}: boolean;
  54.  
  55. implementation
  56.